home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Write3 / Config / WRITE.CONFIG < prev   
Text File  |  1996-09-26  |  13KB  |  901 lines
  1. /* $VER: WRITE.CONFIG 3.512 */
  2. VERSIONCHECK 3848 "WRITE.CONFIG"
  3.  
  4. /* Userfunktionen */
  5.  
  6. BEGIN
  7.  
  8.   ;
  9.  
  10. CLOSE
  11.  
  12.   ;
  13.  
  14. SETUSERFKT 0
  15.   SETVAR "_Path" _RS
  16.   NEWED ""
  17.   WINDOW 0 0 0 0
  18.   OPEN _PATH
  19.   ;
  20.  
  21. SETUSERFKT 1
  22.   IF
  23.     COMPARE 0 _CHANGED;
  24.     NOP;
  25.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Ende|Ab_speichern & Ende*|A_bbrechen !^"
  26.     BREAK EQUAL _RN 2 ;
  27.   IF
  28.     COMPARE _RN 1;
  29.     SAVE _FILENAME ;
  30.     NOP;
  31.   QUITED
  32.   ;
  33.  
  34.  
  35. /* Variablen */
  36.  
  37. SETVAR "_ScrRelWidth" 698
  38. SETVAR "_ScrRelHeight" 528
  39. SETVAR "_AutoIndent" 5
  40. SETVAR "_Optimize" TRUE
  41. SETVAR "_FRPattern" "~(#?(.info|.bak))"
  42.  
  43.  
  44. /* Tastaturbelegung */
  45.  
  46. KEY "control 1"
  47.   GETNUMBER "Speicher Makro :" 1
  48.   MACROREC _RN
  49.   ;
  50.  
  51. KEY "control 2"
  52.   MACROSTOP
  53.   ;
  54.  
  55. KEY "control 3"
  56.   GETNUMBER "Spiele Makro :" 1
  57.   MACROPLAY _RN 1
  58.   ;
  59.  
  60. KEY "control 4"
  61.   GETNUMBER "Führe Makro aus" 1
  62.   SETVAR "_Reg1" _RN
  63.   GETNUMBER "Führe n mal aus" 1
  64.   MACROPLAY _REG1 _RN
  65.   ;
  66.  
  67. KEY "numpad shift 1"
  68.   GOTO _XPOS _LENGTH
  69.   ;
  70.  
  71. KEY "numpad shift 2"
  72.   CURSORDOWN 0
  73.   ;
  74.  
  75. KEY "numpad shift 3"
  76.   PAGEDOWN 90
  77.   ;
  78.  
  79. KEY "numpad shift 4"
  80.   CURSORLEFT 0
  81.   ;
  82.  
  83. KEY "numpad shift 5"
  84.   SETTITLE "Marke gesetzt." 0
  85.   SETMARK
  86.   ;
  87.  
  88. KEY "numpad shift 6"
  89.   CURSORRIGHT 0
  90.   ;
  91.  
  92. KEY "control <"
  93.   GETNUMBER "Bewege Block x Spaltenn\nnach links :" 1
  94.   BLOCKLEFT _RN
  95.   ;
  96.  
  97. KEY "control >"
  98.   GETNUMBER "Bewege Block x Spalten\nnach rechts :" 1
  99.   BLOCKRIGHT _RN
  100.   ;
  101.  
  102. KEY "control y"
  103.   DELETELINE
  104.   ;
  105.  
  106. KEY "alt y"
  107.   UNDELLINE
  108.   ;
  109.  
  110. KEY "control x"
  111.   GETNUMBER "Schneide Block in Buffer :" 1
  112.   COPYBLOCK _RN
  113.   DELETEBLOCK
  114.   ;
  115.  
  116. KEY "control c"
  117.   GETNUMBER "Copiere Block in Buffer :" 1
  118.   COPYBLOCK _RN
  119.   SETTITLE "Block kopiert." 0
  120.   ;
  121.  
  122. KEY "control v"
  123.   GETNUMBER "Eeinfügen aus Buffer :" 1
  124.   INSERTBLOCK _RN
  125.   ;
  126.  
  127. KEY "numpad shift 7"
  128.   GOTO _XPOS 1
  129.   ;
  130.  
  131. KEY "numpad shift 8"
  132.   CURSORUP 0
  133.   ;
  134.  
  135. KEY "numpad shift 9"
  136.   PAGEUP 90
  137.   ;
  138.  
  139. KEY "backspace"
  140.   BACKSPACE 0
  141.   ;
  142.  
  143. KEY "tab"
  144.   TAB 0
  145.   ;
  146.  
  147. KEY "shift tab"
  148.   BACKTAB
  149.   ;
  150.  
  151. KEY "numpad enter"
  152.   RETURN
  153.   ;
  154.  
  155. KEY "return"
  156.   RETURN
  157.   ;
  158.  
  159. KEY "delete"
  160.   DELETE
  161.   ;
  162.  
  163. KEY "shift delete"
  164.   DELETETOEOL
  165.   ;
  166.  
  167. KEY "up"
  168.   CURSORUP 0
  169.   ;
  170.  
  171. KEY "shift up"
  172.   PAGEUP 90
  173.   ;
  174.  
  175. KEY "alt up"
  176.   GOTO _XPOS 1
  177.   ;
  178.  
  179. KEY "down"
  180.   CURSORDOWN 0
  181.   ;
  182.  
  183. KEY "shift down"
  184.   PAGEDOWN 90
  185.   ;
  186.  
  187. KEY "alt down"
  188.   GOTO _XPOS _LENGTH
  189.   ;
  190.  
  191. KEY "right"
  192.   CURSORRIGHT 0
  193.   ;
  194.  
  195. KEY "shift right"
  196.   GOTO @EOL @EOL
  197.   ;
  198.  
  199. KEY "alt right"
  200.   NEXTWORD
  201.   ;
  202.  
  203. KEY "left"
  204.   CURSORLEFT 0
  205.   ;
  206.  
  207. KEY "shift left"
  208.   GOTO @SOL @SOL
  209.   ;
  210.  
  211. KEY "alt left"
  212.   LASTWORD
  213.   ;
  214.  
  215. KEY "f1"
  216.   GOTEXTMARK 0
  217.   ;
  218.  
  219. KEY "shift f1"
  220.   SETTEXTMARK 0
  221.   ;
  222.  
  223. KEY "f2"
  224.   GOTEXTMARK 1
  225.   ;
  226.  
  227. KEY "shift f2"
  228.   SETTEXTMARK 1
  229.   ;
  230.  
  231. KEY "f3"
  232.   GOTEXTMARK HIGHER
  233.   ;
  234.  
  235. KEY "shift f3"
  236.   SETTEXTMARK HIGHER
  237.   ;
  238.  
  239. KEY "f4"
  240.   GOTEXTMARK 3
  241.   ;
  242.  
  243. KEY "shift f4"
  244.   SETTEXTMARK 3
  245.   ;
  246.  
  247. KEY "f5"
  248.   GOTEXTMARK 4
  249.   ;
  250.  
  251. KEY "shift f5"
  252.   SETTEXTMARK 4
  253.   ;
  254.  
  255. KEY "shift f6"
  256.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f6 belegen wollen :" _CURRENTWORD
  257.   KEY "f6"
  258.     WRITETEXT _RS;
  259.   ;
  260.  
  261. KEY "shift f7"
  262.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f7 belegen wollen :" _CURRENTWORD
  263.   KEY "f7"
  264.     WRITETEXT _RS;
  265.   ;
  266.  
  267. KEY "shift f8"
  268.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f8 belegen wollen :" _CURRENTWORD
  269.   KEY "f8"
  270.     WRITETEXT _RS;
  271.   ;
  272.  
  273. KEY "shift f9"
  274.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f9 belegen wollen :" _CURRENTWORD
  275.   KEY "f9"
  276.     WRITETEXT _RS;
  277.   ;
  278.  
  279. KEY "shift f10"
  280.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f10 belegen wollen :" _CURRENTWORD
  281.   KEY "f10"
  282.     WRITETEXT _RS;
  283.   ;
  284.  
  285. KEY "help"
  286.   MESSAGEOK "Cursorkeys         : Bewegung im Text\nShift hoch/runter  : Seite hoch/runter\nShift links/rechts : Erster/letzter Buchstabe in d. Zeile\nalt   hoch/runter  : Erste/letzte Zeile\nalt   links/rechts : letztes/nächstes Wort\n<-                 : Backspace"
  287.   MESSAGEOK "Shift Del : Lösche bis EOL\nCtrl  y   : Lösche Zeile\nF1-F5     : Setze Textmarke\nf1-f5     : Springe zu Textmarke\nEscape    : Iconify"
  288.   ;
  289.  
  290. DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  291.   IF {@CLEARRN}
  292.     GOTOMOUSE {@SAMEPOS};
  293.     SETMARK;
  294.     GOTOMOUSE ;
  295.   ;
  296.  
  297. KEY "rawmouse lbutton mouse_leftpress"
  298.   GOTOMOUSE
  299.   ;
  300.  
  301. DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  302.   MACROPANNEL
  303.   ;
  304.  
  305. KEY "rawmouse rbutton lbutton mouse_rightpress"
  306.   UNMARK
  307.   ;
  308.  
  309.  
  310. /* Menues */
  311.  
  312. MENU "PROJEKT"
  313.  
  314. ITEM "Öffne..." "O"
  315.   IF
  316.     COMPARE 0 _CHANGED;
  317.     NOP;
  318.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen|_Speichern  & neu öffnen*|A_bbrechen !^"
  319.     BREAK EQUAL _RN 2 ;
  320.   IF
  321.     COMPARE _RN 1;
  322.     SAVE _FILENAME ;
  323.     NOP;
  324.   GETFILE "" ""
  325.   OPEN _PATH
  326.   ;
  327.  
  328. ITEM "Alten File neu laden" "alt r"
  329.   IF
  330.     COMPARE 0 _CHANGED;
  331.     NOP;
  332.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen*|A_bbrechen !^"
  333.     BREAK EQUAL _RN 1 ;
  334.   OPEN _FILENAME
  335.   ;
  336.  
  337. ITEMBAR
  338.  
  339. ITEM "Setze/lösche... »" ""
  340.   NOP
  341.   ;
  342.  
  343. SUB "Text unverändert" ""
  344.   SETVAR "_changed" 0
  345.   ;
  346.  
  347. SUB "Ändere Sleepmode" ""
  348.   IF
  349.     COMPARE 1 _SLEEPMODE;
  350.     SETVAR "_SleepMode" 0;
  351.     SETVAR "_SleepMode" 1;
  352.   ;
  353.  
  354. SUB "Ändere EditMode" ""
  355.   IF
  356.     COMPARE 1 _EDITMODE;
  357.     SETVAR "_EditMode" 0;
  358.     SETVAR "_EditMode" 1;
  359.   ;
  360.  
  361. ITEMBAR
  362.  
  363. ITEM "Neu" "alt n"
  364.   IF
  365.     COMPARE 0 _CHANGED;
  366.     NOP;
  367.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Löschen|_Speichern & löschen*|A_bbrechen !^"
  368.     BREAK 0 _RN 2 ;
  369.   IF
  370.     COMPARE _RN 1;
  371.     SAVE _FILENAME ;
  372.     NOP;
  373.   NEW
  374.   SETTITLE "Text gelöscht." 0
  375.   ;
  376.  
  377. ITEMBAR
  378.  
  379. ITEM "Umbenennen..." "R"
  380.   GETSTRING (Benenne\n"$_FileName$"\num...) _FILENAME
  381.   SETVAR "_FileName" _RS
  382.   SETVAR "_Path" _RS
  383.   ;
  384.  
  385. ITEM "Speichern" "S"
  386.   SAVE _FILENAME
  387.   ;
  388.  
  389. ITEM "Speichern als..." "A"
  390.   GETFILE "" "" {@SAVE}
  391.   SETVAR "_FileName" _PATH
  392.   SAVE _FILENAME
  393.   ;
  394.  
  395. ITEM "Speichern als RAW..." ""
  396.   GETFILE "" "" {@SAVE}
  397.   SAVE _PATH {@RAW}
  398.   ;
  399.  
  400. ITEM "Speichern & neu öffnen..." ""
  401.   SAVE _FILENAME
  402.   GETFILE "" ""
  403.   OPEN _PATH
  404.   ;
  405.  
  406. ITEM "Text ausdrucken" "*"
  407.   SAVE "PRT:"
  408.   ;
  409.  
  410. ITEMBAR
  411.  
  412. ITEM "Neues Fenster »" ""
  413.   NOP
  414.   ;
  415.  
  416. SUB "GROßES FENSTER" "B"
  417.   NEWED ""
  418.   WINDOW 0 0 0 0
  419.   ;
  420.  
  421. SUB "kleines Fenster" "W"
  422.   NEWED ""
  423.   WINDOW 100 50 100 50
  424.   ;
  425.  
  426. ITEM "Iconify" "escape"
  427.   ICONIFY
  428.   ;
  429.  
  430. ITEM "Hide" "alt h"
  431.   HIDE
  432.   ;
  433.  
  434. ITEM "WinArranger" "§"
  435.   WINARRANGER 1
  436.   ;
  437.  
  438. ITEM "WinManager" "$"
  439.   WINMANAGER
  440.   ;
  441.  
  442. ITEMBAR
  443.  
  444. ITEM "Über WRITE" "!"
  445.   ABOUT
  446.   ;
  447.  
  448. ITEMBAR
  449.  
  450. ITEM "Speichern & Verlassen" "E"
  451.   IF
  452.     COMPARE 0 _CHANGED;
  453.     NOP;
  454.     SAVE _FILENAME ;
  455.   QUITED
  456.   ;
  457.  
  458. ITEM "Ende" "Q"
  459.   IF
  460.     COMPARE 0 _CHANGED;
  461.     NOP;
  462.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Ende|_Speichern & Ende*|A_bbrechen !^"
  463.     BREAK 0 _RN 2 ;
  464.   IF
  465.     COMPARE _RN 1;
  466.     SAVE _FILENAME ;
  467.     NOP;
  468.   QUITED
  469.   ;
  470.  
  471. MENU "EDIT"
  472.  
  473. ITEM "Undo" "ß"
  474.   UNDO 1
  475.   ;
  476.  
  477. ITEM "Undo..." ""
  478.   GETNUMBER "Wieviel Schritte wollen\nrückgängig machen ?" 1
  479.   UNDO _RN
  480.   ;
  481.  
  482. ITEMBAR
  483.  
  484. ITEM "Setze Marke" "M"
  485.   SETTITLE "Marke gesetzt." 0
  486.   SETMARK
  487.   ;
  488.  
  489. ITEM "Lösche Marke" "U"
  490.   UNMARK
  491.   ;
  492.  
  493. ITEMBAR
  494.  
  495. ITEM "Ausschneiden" "X"
  496.   COPYBLOCK 0
  497.   DELETEBLOCK
  498.   ;
  499.  
  500. ITEM "Kopieren" "C"
  501.   COPYBLOCK 0
  502.   SETTITLE "Block kopiert." 0
  503.   ;
  504.  
  505. ITEM "Einfügen" "V"
  506.   INSERTBLOCK 0
  507.   ;
  508.  
  509. ITEM "Löschen" ""
  510.   DELETEBLOCK
  511.   ;
  512.  
  513. ITEMBAR
  514.  
  515. ITEM "Clipboard »" ""
  516.   NOP
  517.   ;
  518.  
  519. SUB "Ausschneiden nach Clip" "alt x"
  520.   COPYBLOCK 0
  521.   BUFFERTOCLIP 0 0
  522.   DELETEBLOCK
  523.   ;
  524.  
  525. SUB "Nach Clip kopieren" "alt c"
  526.   COPYBLOCK 0
  527.   BUFFERTOCLIP 0 0
  528.   SETTITLE "Block kopiert." 0
  529.   ;
  530.  
  531. SUB "Einfügen aus Clip" "alt v"
  532.   CLIPTOBUFFER 0 0
  533.   INSERTBLOCK 0
  534.   ;
  535.  
  536. SUB "Buffer nach Clip" ""
  537.   BUFFERTOCLIP 0 0
  538.   ;
  539.  
  540. SUB "Clip nachBuffer" ""
  541.   CLIPTOBUFFER 0 0
  542.   ;
  543.  
  544. ITEMBAR
  545.  
  546. ITEM "Lösche Buffer" ""
  547.   CLEARBUFFER 0
  548.   SETTITLE "OK." 0
  549.   ;
  550.  
  551. ITEM "Speicher Block als..." ""
  552.   COPYBLOCK 0
  553.   GETFILE "" "" {@SAVE}
  554.   SAVEBUFFER _PATH 0
  555.   ;
  556.  
  557. ITEM "Drucke Block" ""
  558.   COPYBLOCK 0
  559.   SAVEBUFFER "PRT:" 0
  560.   ;
  561.  
  562. ITEM "Füge File ein..." ""
  563.   GETFILE "" ""
  564.   LOADBUFFER _PATH 0
  565.   INSERTBLOCK 0
  566.   ;
  567.  
  568. ITEMBAR
  569.  
  570. ITEM "Block links" "<"
  571.   BLOCKLEFT 1
  572.   ;
  573.  
  574. ITEM "Block rechts" ">"
  575.   BLOCKRIGHT 1
  576.   ;
  577.  
  578. ITEM "Block linksbündig..." ""
  579.   GETNUMBER "Mache Block bündig zu Zeile :" _XPOS
  580.   BLOCKLFTALIG _RN
  581.   ;
  582.  
  583. ITEM "Block rechtsbündig..." ""
  584.   GETNUMBER "Mach Block bündig zu Zeile :" _XPOS
  585.   BLOCKRGHTALIG _RN
  586.   ;
  587.  
  588. ITEM "Zentriere Block..." ""
  589.   BLOCKCENTER 1 80
  590.   ;
  591.  
  592. MENU "INTERN"
  593.  
  594. ITEM "Parse Buffer..." ""
  595.   GETNUMBER "Parse Buffer :" 0
  596.   SETTITLE "PARSING..." 1
  597.   PARSEBUFFER _RN
  598.   FLASH
  599.   ;
  600.  
  601. ITEM "Parse Block" ""
  602.   COPYBLOCK 1
  603.   SETTITLE "PARSING..." 1
  604.   PARSEBUFFER 1
  605.   FLASH
  606.   ;
  607.  
  608. ITEM "Parse File..." ""
  609.   GETFILE "" ""
  610.   LOADBUFFER _PATH 1
  611.   SETTITLE "PARSING..." 1
  612.   PARSEBUFFER 1
  613.   FLASH
  614.   ;
  615.  
  616. ITEMBAR
  617.  
  618. ITEM "Führe Buffer aus..." ""
  619.   GETNUMBER "Führe Buffer aus :" 0
  620.   SETTITLE "EXECUTING..." 1
  621.   DOBUFFER _RN
  622.   FLASH
  623.   ;
  624.  
  625. ITEM "Führe Block aus" ""
  626.   COPYBLOCK 1
  627.   SETTITLE "EXECUTING..." 1
  628.   DOBUFFER 1
  629.   FLASH
  630.   ;
  631.  
  632. ITEM "Führe Komando aus..." "D"
  633.   GETSTRING "Bitte geben sie WRITE-Komandos ein :" ""
  634.   DOSTRING _RS
  635.   ;
  636.  
  637. ITEM "Führe File aus..." ""
  638.   GETFILE "" ""
  639.   LOADBUFFER _PATH 1
  640.   SETTITLE "EXECUTING..." 1
  641.   DOBUFFER 1
  642.   FLASH
  643.   ;
  644.  
  645. ITEMBAR
  646.  
  647. ITEM "Nehme Makro auf" "1"
  648.   MACROREC 0
  649.   ;
  650.  
  651. ITEM "Stoppe  Aufnahme" "2"
  652.   MACROSTOP
  653.   ;
  654.  
  655. ITEM "Spiele ab" "3"
  656.   MACROPLAY 0 1
  657.   ;
  658.  
  659. ITEM "Speile mehrmals ab..." "4"
  660.   GETNUMBER "Replay it n times " 1
  661.   MACROPLAY 0 _RN
  662.   ;
  663.  
  664. MENU "EXTERN"
  665.  
  666. ITEM "Neue Shell" "."
  667.   SYSTEM "NewShell"
  668.   ;
  669.  
  670. ITEM "DOS-Execute..." ""
  671.   GETSTRING "Geben sie ein CLI-Komando ein :" ""
  672.   SYSTEM _RS {@ASYNC}
  673.   ;
  674.  
  675. ITEMBAR
  676.  
  677. ITEM "Lösche File..." ""
  678.   GETFILE "" ""
  679.   ;
  680.  
  681. ITEM "Erschaffe Directory..." ""
  682.   GETFILE "" "" {@SAVE}
  683.   ;
  684.  
  685. ITEMBAR
  686.  
  687. ITEM "Font..." ""
  688.   GETFONT
  689.   ;
  690.  
  691. MENU "REXX"
  692.  
  693. ITEM "Führe Rexx aus..." ""
  694.   GETSTRING "Geben sie ein REXX-Komando ein :" ".wrx"
  695.   DOREXX _RS {@ASYNC}
  696.   ;
  697.  
  698. ITEMBAR
  699.  
  700. MENU "UTLITIES"
  701.  
  702. ITEM "Schreibe Zeichen..." "alt space"
  703.   GETNUMBER "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  704.   WRITECHAR _RN
  705.   ;
  706.  
  707. ITEM "Zeige Zeit & Datum" "T"
  708.   MESSAGEOK "Aktuelle Zeit ist :\n$_Time$"
  709.   ;
  710.  
  711. ITEMBAR
  712.  
  713. ITEM "UPPER word" "^"
  714.   UPPERBLOCK @SOW @SOW @EOW @EOW
  715.   ;
  716.  
  717. ITEM "lower word" "#"
  718.   LOWERBLOCK @SOW @SOW @EOW @EOW
  719.   ;
  720.  
  721. ITEMBAR
  722.  
  723. ITEM "Match Bracket" "("
  724.   MATCHBRACKET
  725.   ;
  726.  
  727. MENU "SEARCH"
  728.  
  729. ITEM "Zähle..." ""
  730.   GETFINDREPLACE _FINDSTRING ""
  731.   IF
  732.     COMPARE _MARKED HIGHER;
  733.     FIND @MARKA @MARKA @MARKB @MARKB {@COUNT};
  734.     FIND @CURSOR @CURSOR @EOT @EOT {@COUNT};
  735.   MESSAGEOK "\"$_FindWord$\"\nwurde $_RN$ mal gefunden !"
  736.   ;
  737.  
  738. ITEMBAR
  739.  
  740. ITEM "Finde..." "F"
  741.   GETFINDREPLACE _FINDSTRING ""
  742.   IF
  743.     COMPARE _MARKED HIGHER;
  744.     FIND @MARKA @MARKA @MARKB @MARKB ;
  745.     FIND @CURSOR @CURSOR @EOT @EOT ;
  746.   ;
  747.  
  748. ITEM "Finde noch einmal" "N"
  749.   IF
  750.     COMPARE _MARKED HIGHER;
  751.     FIND @MARKA @MARKA @MARKB @MARKB ;
  752.     FIND @CURSOR @CURSOR @EOT @EOT ;
  753.   ;
  754.  
  755. ITEMBAR
  756.  
  757. ITEM "Ersetze..." "Y"
  758.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  759.   IF
  760.     COMPARE _MARKED HIGHER;
  761.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  762.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  763.   ;
  764.  
  765. ITEM "Ersetze noch einmal" "Z"
  766.   IF
  767.     COMPARE _MARKED HIGHER;
  768.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  769.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  770.   ;
  771.  
  772. ITEM "Ersetze alle..." ""
  773.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  774.   IF
  775.     COMPARE _MARKED HIGHER;
  776.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL};
  777.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL};
  778.   FLASH
  779.   ;
  780.  
  781. ITEM "Ersetze alle schnell..." ""
  782.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  783.   SILENT
  784.   IF
  785.     COMPARE _MARKED HIGHER;
  786.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL @NOREQ};
  787.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ};
  788.   WINDOW 0 0 0 0
  789.   MESSAGEOK (Es wurde $_RN$ mal\n"$_FindString$"\ndurch\n"$_ReplaceString$"\nersetzt.)
  790.   ;
  791.  
  792. ITEMBAR
  793.  
  794. ITEM "Suche nach Muster..." ""
  795.   GETSTRING "Bitte geben sie das Suchmuster an :\n(Case)" _PATCASE
  796.   SETVAR "_PatCase" _RS
  797.   FINDPATTERN @CURSOR @EOT {@CASE}
  798.   ;
  799.  
  800. ITEM "Suche noch einmal" ""
  801.   FINDPATTERN @CURSOR @EOT {@CASE}
  802.   ;
  803.  
  804. ITEM "Suche nach Muster (no Case)..." "Ö"
  805.   GETSTRING "Bitte geben sie das Suchmuster an :\n(No case)" _PATNOCASE
  806.   SETVAR "_PatNoCase" _RS
  807.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  808.   ;
  809.  
  810. ITEM "Suche noch einmal" "Ä"
  811.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  812.   ;
  813.  
  814. ITEMBAR
  815.  
  816. ITEM "Springe zu Zeile..." "G"
  817.   GETNUMBER "Springe zu Zeile :" _YPOS
  818.   GOTO _XPOS _RN
  819.   ;
  820.  
  821. ITEMBAR
  822.  
  823. ITEM "Zeige Index..." "J"
  824.   GETSTRING "Bitte geben sie das Suchmuster\nfür den Index an :" "#?#?"
  825.   SHOWINDEX _RS {@CASE}
  826.   ;
  827.  
  828. MENU "FOLDS"
  829.  
  830. ITEM "Falte Block" "alt f"
  831.   FOLD @MARKA @MARKB
  832.   ;
  833.  
  834. ITEM "Entfalte Zeile" "alt u"
  835.   UNFOLD @CURSOR @CURSOR 1
  836.   ;
  837.  
  838. ITEM "Falte zurück" "alt shift f"
  839.   REFOLD
  840.   ;
  841.  
  842. ITEMBAR
  843.  
  844. ITEM "Entfalte alles..." ""
  845.   GETNUMBER "Wieviele Faltungsebenen\nsollen entfaltet werden ?" 1
  846.   UNFOLD @SOT @EOT _RN
  847.   ;
  848.  
  849. MENU "PREFS"
  850.  
  851. ITEM "Globale Prefs" ""
  852.   GPREFS
  853.   ;
  854.  
  855. ITEM "Prefs" "+"
  856.   PREFS
  857.   ;
  858.  
  859. ITEMBAR
  860.  
  861. ITEM "Lade Konfiguration..." ""
  862.   GETFILE _CONFIGPATH "#?.config"
  863.   LOADBUFFER _RS "1"
  864.   SETTITLE "EXECUTING..." 1
  865.   DOBUFFER 1
  866.   FLASH
  867.   ;
  868.  
  869. ITEMBAR
  870.  
  871. ITEM "Zeige Konfiguration" ""
  872.   GETFILE _CONFIGPATH "#?.config"
  873.   NEWED ""
  874.   WINDOW 0 0 0 0
  875.   OPEN _RS
  876.   ;
  877.  
  878. MENU "HELP"
  879.  
  880. ITEM "Help..." "Shift Help"
  881.   HELP
  882.   ;
  883.  
  884. ITEM "Zeige Variablen" ""
  885.   SHOWVARS
  886.   ;
  887.  
  888. ITEM "Zeige Funktionen" ""
  889.   SHOWFUNCTIONS
  890.   ;
  891.  
  892. ITEM "Zeige ASCII-Codes" ""
  893.   SHOWASCII
  894.   ;
  895.  
  896. ITEM "Hilfe zu Stichwort..." "?"
  897.   GETSTRING "Bitte geben sie das gesuchte Stichwort ein :" ""
  898.   GUIDEHELP _RS
  899.   ;
  900.  
  901.